inherited FCadBlocoEtapaInsumos: TFCadBlocoEtapaInsumos
  Left = 651
  Top = 499
  Width = 863
  Height = 157
  Caption = 'Adiciona insumos ao bloco'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel [4]
    Left = 8
    Top = 64
    Width = 54
    Height = 13
    Caption = 'IDINSUMO'
    FocusControl = dbedtIDINSUMO
  end
  object lbl2: TLabel [5]
    Left = 704
    Top = 64
    Width = 111
    Height = 13
    Caption = 'EMPBLOETPMATQTD'
    FocusControl = dbedtEMPBLOETPMATQTD
  end
  inherited BtCancelar: TBitBtn
    Left = 684
    Width = 79
    Height = 30
  end
  inherited BtGravar: TBitBtn
    Left = 603
    Top = 3
    Width = 79
    Height = 30
  end
  inherited BtExcluir: TBitBtn
    Left = 764
    Top = 3
    Width = 79
    Height = 30
  end
  object dbedtIDINSUMO: TDBEdit [9]
    Left = 8
    Top = 80
    Width = 81
    Height = 21
    Color = clMoneyGreen
    DataField = 'IDINSUMO'
    DataSource = ds1
    TabOrder = 3
    OnDblClick = dbedtIDINSUMODblClick
    OnExit = dbedtIDINSUMOExit
  end
  object dbedtEMPBLOETPMATQTD: TDBEdit [10]
    Left = 704
    Top = 80
    Width = 134
    Height = 21
    DataField = 'QTDINSUMO'
    DataSource = ds1
    TabOrder = 4
  end
  object EdDescMaterial: TEdit [11]
    Left = 96
    Top = 80
    Width = 601
    Height = 21
    ReadOnly = True
    TabOrder = 5
  end
  inherited qFilha: TQuery
    BeforeEdit = qFilhaBeforeEdit
    AfterScroll = qFilhaAfterScroll
    SQL.Strings = (
      'SELECT * FROM EMPREENDBLOCOETAPAINSUMO'
      'WHERE 1=-1')
    Left = 434
    Top = 12
    object intgrfldFilhaIDINSUMO: TIntegerField
      FieldName = 'IDINSUMO'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.IDINSUMO'
    end
    object intgrfldFilhaEMPBLOETPID: TIntegerField
      FieldName = 'EMPBLOETPID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.EMPBLOETPID'
    end
    object intgrfldFilhaEMPBLOID: TIntegerField
      FieldName = 'EMPBLOID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.EMPBLOID'
    end
    object intgrfldFilhaEMPREENDID: TIntegerField
      FieldName = 'EMPREENDID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.EMPREENDID'
    end
    object fltfldFilhaQTDINSUMO: TFloatField
      FieldName = 'QTDINSUMO'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.QTDINSUMO'
    end
  end
  inherited qGenerica: TQuery
    Left = 436
    Top = 43
  end
  object ds1: TDataSource
    DataSet = qFilha
    Left = 120
    Top = 8
  end
  object QAux: TQuery
    DatabaseName = 'BDSistema.FDB'
    Left = 504
    Top = 24
  end
end
